home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / basic / aa_array.zip / DEMO.BAS < prev    next >
BASIC Source File  |  1994-12-02  |  767b  |  42 lines
  1. Option Explicit
  2.  
  3. Type testInteger
  4.    int As Long
  5. End Type
  6.  
  7. Global Const testInteger_ut = "long"
  8.  
  9. Type testIntLong
  10.    lng As Long
  11.    int As Integer
  12. End Type
  13.  
  14. Global Const testIntLong_ut = "long, integer"
  15.  
  16. Type testString
  17.    str As String
  18. End Type
  19.  
  20. Global Const testString_ut = "string"
  21.  
  22. Type testFixed30
  23.    str As String * 30
  24. End Type
  25.  
  26. Global Const testFixed30_ut = "string*30"
  27.  
  28. Type testAll
  29.    int As Integer
  30.    lng As Long
  31.    sngl As Single
  32.    dbl As Double
  33.    crrncy As Currency
  34.    str As String
  35.    str50 As String * 50
  36.    int2 As Integer
  37. End Type
  38.  
  39. Global Const testAll_ut = "Integer, Long, Single, Double, Currency, String, String*50, Integer"
  40. 'Global Const testAll_ut = "Integer, Long, Single, Double, Currency, Integer"
  41.  
  42.